﻿Public Partial Class ParaTestar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
        'TestarArtista2()

        TestarUsuario()

        'TestarArtista()

    End Sub

    Private Sub TestarArtista2()
        Dim x As New Show
        Dim y As New Artista

        y.NomeArtista = "Artista"
        y.CodigoArtista = 88
        y.ArtistaDisponivel = True
        y.Acao = Enumeradores.EnumAcaoXML.Incluir

        x.CodigoShow = 77
        x.DataShow = DateTime.UtcNow
        x.DuracaoShowEmMinutos = 80
        'x.NomeShow = "T-Pain Music"
        x.ValorShowEmReais = 80

        'x.ListaArtista.Add(y)

        Dim lista As New List(Of Show)
        lista.Add(x)

        Dim str As String = ""
        Dim str2 As String = ""
        For Each S As Show In lista
            str = Gerais.MontaXml(Of Show)(lista, "SHOW")
            'str2 = Gerais.MontaXml(Of Artista)(S.ListaArtista, "ARTISTA")
        Next


        str = ""
        str2 = ""

    End Sub

    Private Sub TestarArtista()
        'Dim x As New Artista
        'x.NomeArtista = "T-Pain"
        'x.ArtistaDisponivel = True
        'x.Acao = Enumeradores.EnumAcaoXML.Incluir

        'Dim lista As New List(Of Artista)
        'lista.Add(x)

        ''AcessoBanco.CadastrarArtista(lista)

        'Dim DS As New DataSet

        'DS = AcessoBanco.ConsultarArtista(1)

        'If DS.Tables.Count > 0 AndAlso DS.Tables(0).Rows.Count > 0 Then

        'End If

        'Artista.NovaLista(Of Artista)()
        'Artista.AdicionarItemNaLista(
        'Artista.NewL()




    End Sub

    Private Sub TestarUsuario()

        Dim lista As New List(Of Usuario)
        For i = 0 To 10

            Dim x As New Usuario
            x.Acao = Enumeradores.EnumAcaoXML.Incluir
            x.CodigoCPF = 451654
            x.CodigoUsuario = i
            x.DataCadastro = DateTime.UtcNow
            x.EmailUsuario = "dfsdfdf@dfdf.com"
            x.LoginUsuario = "dfd"
            x.NomeUsuario = "will"
            x.Perfil = Enumeradores.EnumTipoPerfil.Cliente
            x.SenhaUsuario = "senha"
            x.Telefone = (i * 3).ToString
            x.UsuarioDisponivel = True
            lista.Add(x)
        Next

        Dim y As New Usuario
        y.Acao = Enumeradores.EnumAcaoXML.Alterar
        y.CodigoCPF = 451654
        y.CodigoUsuario = 4
        y.DataCadastro = DateTime.UtcNow
        y.EmailUsuario = "dfsdfdf@dfdf.com"
        y.LoginUsuario = "dfd"
        y.NomeUsuario = "willcsadsads"
        y.Perfil = Enumeradores.EnumTipoPerfil.Cliente
        y.SenhaUsuario = "sensdasdsadha"
        y.Telefone = (23 * 3).ToString
        y.UsuarioDisponivel = True
        lista.Add(y)


        AcessoBanco.CadastrarUsuario(lista)

        Dim DS As New DataSet

        DS = AcessoBanco.ConsultarUsuario(1)

        If DS.Tables.Count > 0 AndAlso DS.Tables(0).Rows.Count > 0 Then

        End If

    End Sub

End Class